home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / slots.h < prev    next >
C/C++ Source or Header  |  1993-04-19  |  880b  |  28 lines
  1. /* ******************************************************************** */
  2. /*  slots.h          Copyright (C) Codemist and University of Bath 1989 */
  3. /*                                                                      */
  4. /* Slot/slot description manipulation                                    */
  5. /* ******************************************************************** */
  6.  
  7. /*
  8.  * Change Log:
  9.  *   Version 1, December 1989
  10.  */
  11.  
  12. #ifndef SLOTS_H
  13. #define SLOTS_H
  14.  
  15. /* slot structure */
  16. /* These are never used */
  17. #define slot_desc_name(slot) slotref(slot,0)
  18. #define slot_desc_position(slot) slotref(slot,1)
  19. #define slot_desc_initargs(slot) slotref(slot,2)
  20. #define slot_desc_initform(slot) slotref(slot,3)
  21. #define slot_desc_mutable(slot) slotref(slot,4)
  22. #define N_SLOTS_IN_SD_CLASS 6
  23.  
  24. #define init_slot_initarg(slot) (CAR(slot))
  25. #define init_slot_initfunction(slot) (CDR(slot))
  26.  
  27. #endif
  28.